home *** CD-ROM | disk | FTP | other *** search
/ World of Video / World of Video.iso / rexx / magiccx / basrevision.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-13  |  845b  |  38 lines
  1. /*
  2.     $VER: BASRevision.rexx 1.0 (12.8.94)
  3.  
  4.     Revises an Basic source code
  5.     The default Port of MagicCX is assumed to be MCX.
  6.     This script was written for Shell usage.
  7.  
  8.     Written by :     Kai Iske
  9.              Brucknerstrasse 18
  10.              63452 Hanau
  11.              GERMANY
  12.              Tel.: +49-(0)6181-850181
  13.  
  14.     THIS SCRIPT IS PUBLIC DOMAIN
  15. */
  16.  
  17. /*
  18.    Standard defines for INITIALVER INITIALREV INSERTBEFORE AND INSERTAFTER
  19.    (Please add complete paths for the files!)
  20. */
  21.  
  22. INITVER        = 1
  23. INITREV        = 0
  24. INSBEFORE    = BASInsertBeforeHeader
  25. INSAFTER    = BASInsertAfterHeader
  26.  
  27. QUOTE    = '22'X
  28.  
  29. OPTIONS RESULTS
  30. ADDRESS 'MCX' REVISE 'FILE='QUOTE''Arg(1)''QUOTE 'MODE=BAS' 'INITIALVER='INITVER 'INITIALREV='INITREV 'INSERTBEFORE='INSBEFORE 'INSERTAFTER='INSAFTER
  31. RevDone = RESULT
  32. IF RevDone = 'TRUE' THEN
  33.     say 'No errors occured... Sourced revised.'
  34. ELSE
  35.     say 'Error occured during revision...'
  36.  
  37. EXIT
  38.